home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / kdybug.zip / KDYBUG.TXT
Text File  |  1989-08-09  |  5KB  |  149 lines
  1. Here is a little problem I ran into and a Solution for the
  2. latest ZIP-CON.MOD file I put out
  3.  
  4.  
  5. First the solution since it doesn't take long to fix
  6. then I will get into detail on why the fix...
  7.  
  8. in RBBSSUB3.BAS add the followin line
  9.  
  10.           PRINT #2, "CD "+LEFT$(LIBRARY.WORK.DISK.PATH$,3) : _
  11.  
  12. I have include the section of code for reference and only the above line need
  13. be changed at the location commented 'KDY BUG FIX
  14.  
  15.  
  16. OK now for the gorry details.........
  17.  
  18. I have a 1.4meg ram disk I use as a WORK disk for PKZIP
  19.  
  20. My AUTOEXEC.BAT file create a RAM disk as DRIVE I:
  21. I then copy the MENU1 thru MENU6 files the this drive
  22. and place them in the ROOT dir
  23.  
  24. I also create a SUBDIR called I:\RAM\  This is the LIBRARY.WORK.DISK.PATH$
  25. When a user uploads a file the verify/convert process is done in the
  26. LIBRARY.WORK.DISK.PATH$ +NODE.ID$ and it looks like this
  27. I:\RAM\1\
  28.  
  29. RBBS then shells to the CONVERTx.BAT file it built and goes about it's
  30. bussiness....here is were the problem starts...
  31.  
  32. I use the file KDY.EXE to remove the files and the Subdir the BAT file created
  33. this program is used so there are no questions asked and the subdir gets remove
  34. even if there are file in it..... now when I use the following command line
  35. from the default RBBS drive  KDY.EXE will change subdires on me and not leave
  36. things as I thought I had them set up
  37.  
  38. MAKE SURE YOU TRY THIS ON A RAM DISK or SUBDIR with NOTHING in it !!!!!
  39.  unless you want to wipe out a lot of files
  40.  
  41.  
  42. First I make sure I am in the ROOT dir of the I: drive
  43.  
  44. CD I:\
  45.  
  46. then lets create the I\RAM\1 subdir from the C:\RBBS subdir I enter
  47.  
  48. MD I:\RAM\1
  49.  
  50. then from the C:\RBBS subdir I enter
  51.  
  52. KDY I:\RAM\1  (note: the I:drive is logged to the ROOT DIR)
  53.  
  54. I then use the CD command to see were I am on the I: drive
  55.  
  56. CD I:
  57.  
  58. DOS returns  I:\RAM   (hey what happend here ????)
  59.  
  60. I should be logged to the ROOT dir of the I: drive right ??? WRONG !!!!
  61.  
  62. anyway to make things short now that you understand what is going on
  63.  
  64. Even though I told CONFIG.EXE (RBBS file)that the MENU1 -6 files are on the
  65.  I:\ Drive  it cant find my MENU1C MENU2C MENU3C ect also the MENU2G ect files
  66.  
  67. This appears to be a bug in RBBS but I feel the KDY.EXE program should not
  68. change things around without return things to the way they were.
  69.  
  70. I hope this little fix will correct any problems you have been having latly
  71. with you NON expert users not getting the proper menus displayed...
  72.  
  73.  
  74. I hope I was clear enough here in explaining what was happening to me
  75. leave message on the Maple if I confused you more then helped
  76.  
  77. again this fix is for the ZIP-CON.ZIP file recently released
  78.  
  79.  
  80. Pete Eibl Maple Street BBS (414-771-2805 1200-9600 HST)
  81.  
  82.  
  83.  
  84.  
  85.  
  86. FOR REFERENCE ONLY .....  RBBSSUB3.BAS (MAPLE VERSION )
  87.  
  88.  
  89.  
  90. 20725 IF LOCAL.USER THEN _
  91.         GOTO 20726
  92.        CALL BRKFNAME (FILE.NAME$, DR$, ZZ$, X$, TRUE)
  93.        IF X$ = ".EXE" OR X$ = "" OR EXT$ = ".SFX" THEN _
  94.           GOTO 20727
  95.        IF X$ = ".ZIP" THEN _
  96.           CALL QTPUT (FILE.NAME.HOLD$ +" Now being verified and re-Zipped Please wait!",1) : _
  97.           Z$ = "PKUNZIP -x " + FILE.NAME$ + " " _
  98.        ELSE _
  99.           CALL QTPUT (FILE.NAME.HOLD$ +" Now being converted to .ZIP format. Please wait!",1) : _
  100.           IF X$ = ".ARC" OR X$ = ".PAK" THEN _
  101.              Z$ = "PAK e " + FILE.NAME$ + " " : _
  102.           ELSE IF X$ = ".LZH" THEN _
  103.              Z$ = "LHARC e " + FILE.NAME$ + " " : _
  104.           ELSE IF X$ = ".ZOO" THEN _
  105.              Z$ = "ZOO.BAT " + FILE.NAME$ + " " : _
  106.           ELSE _
  107.              SHELL "PKZIP -m -ex " + DR$ + ZZ$ + " " + FILE.NAME$ : _ 
  108.              Z$ = ""
  109.        IF Z$ <> "" THEN _
  110.           B$ = "CONVERT"+NODE.ID$+".BAT" : _
  111.           CALL OPENOUTW (B$) : _
  112.           PRINT #2, "MD " + LIBRARY.WORK.DISK.PATH$ + NODE.ID$ : _
  113.           PRINT #2, "ECHO OFF": _
  114.           PRINT #2, "CTTY " + COM.PORT$ : _
  115.           PRINT #2,  Z$ + " " + LIBRARY.WORK.DISK.PATH$ + NODE.ID$ + "\" : _
  116.           PRINT #2,  "DEL " + FILE.NAME$ : _
  117.           PRINT #2, "IF ERRORLEVEL = 1 GOTO ERR " : _
  118.           PRINT #2, "PKZIP -m -ex " + DR$ + ZZ$ + " " + _ 
  119.                  LIBRARY.WORK.DISK.PATH$ + NODE.ID$ + "\*.*" : _
  120.           PRINT #2,":ERR" : _
  121.           PRINT #2, "CTTY CON" : _
  122.           PRINT #2,  "KDY " + LIBRARY.WORK.DISK.PATH$ + NODE.ID$ : _
  123.  
  124.   PRINT #2, "CD "+LEFT$(LIBRARY.WORK.DISK.PATH$,3) : _  'KDY BUG FIX
  125.  
  126.           PRINT #2,"SETERROR 0" : _
  127.           PRINT #2, "ECHO ON"
  128. IF FOSSIL THEN _
  129.     CALL FOSEXIT(COMPORT%)_
  130. ELSE CLOSE 3 : _
  131.        OUT MODEM.CONTROL.REGISTER,INP(MODEM.CONTROL.REGISTER) OR 1 : _
  132.        CLOSE 2 :_
  133.        SHELL B$
  134.       IF FOSSIL THEN _
  135.         CALL FOSINIT(COMPORT%,RESULT%) : _
  136.          IF RESULT% = -1 THEN _
  137.            CALL PSCRN("ERROR INITIALIZING FOSSIL AFTER EXTERNAL PROTOCOL") : _
  138.             SYSTEM
  139.        PARITY$ = MID$(",N,8,1,E,7,1",7 + 6 * EIGHT.BIT,6)
  140.       IF FOSSIL THEN _
  141.          CALL SETBAUD _
  142.       ELSE CALL OPENCOM(TALK.TO.MODEM.AT$,PARITY$)
  143.        FILE.NAME.HOLD$ = ZZ$ + ".ZIP"
  144.        FILE.NAME$ = DR$ + FILE.NAME.HOLD$
  145. '
  146. '
  147. ' Comment code added here   
  148. '
  149. 20726 CALL FINDIT (FILE.NAME$)